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cccccccc 000000 MM MM DDDDDDDD RRRRRRRR VV VV SSSSSSSS UU UU 

cccccccc 000000 MM MM DDDDDDDD RRRRRRRR VV VV SSSSSSSS UU UU 
cc 00 00 MMMM MMMM DD DD RR RR VV vv SS UU UU 
cc 00 00 MMMM MMMM DD DD RR RR VV vv SS UU UU 
cc 00 00 MM MM DD DD RR RR VV VV SS UU UU 
cc 00 00 MM MM MM DD DD RR RR VV vv SS UU UU 
cc 00 00 MM MM DD DD RRRRRRRR VV VV SSSSSS UU UU 
cc 00 00 MM MM ODD DD RRRRRRRR VV VV SSSSSS UU UU 
cc 00 00 MM MM DD DD RR RR VV VV SS UU UU 
cc 00 00 MM MM DD DD RR RR VV VV SS UU UU 
cc 00 00 MM MM DD DD RR RR VV VV SS UU UU 
cc 00 00 MM MM DD DD RR RR VW VV SS UU UU 

cccccccc 000000 MM MM DDDDDDDD RR RR VV SSSSSSSS UUUUUUUUUU 

ccceccccc 000000 MM MM DDDDDDDD RR RR VV SSSSSSSS UUUUUUUUUU 
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-TITLE COMDR - COMMUNUCATION DRIVERS SUBROUTINES 
- IDENT Woe to 


oOo 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT _GORPORATION, MAYNARD, MASSACHUSETTS. 


RIGHTS R 


F TWARE ss FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
H ie OF SUCH LICENSE AND WITH THE 
S SOFTWARE OR ANY OTHER 


nnem 


L 
I$ 
LY 
Pie 
HER PERSON. "TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: 

; VAX/VMS 1/0 DRIVERS 
> ABSTRACT: 

: THIS MODULE CONTAINS SUBROUTINES FOR THE TERMINAL,MAILBOX AND DMC11 DRIVERS. 
: AUTHOR: 

; R.HEINEN 8-SEPT-1977 

> REVISION HISTORY: 

; vO3-007 mHBO137 Mark Bramhall 12-Apr-1984 

; Define minimum deallocatable block size as FKBSC_LENGTH. 

: Restore stacked register after BADDALRQSZ bug chéck. 

: V03-006 RKS006 RICK SPITZ 2-MAR-1984 

s Make sure that TAST is removed from UCB queue when 

: TAST replaced and currently busy. 


V03-005 DWT0157 David W. Thiel 30-DEC-1983 
Modify COMSDRVDEALMEM to avoid unnecessary forks. 


v03-004 JLV0272 Jake Van 14-JUN-1983 
Add abort 1/0 flag to out t of band Logic. Also 
add new entry points for checking PIDs to qualify 
AST delivery. 
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vO4-000 COMSDELATT 


NUC 
ATTNA 
: 9. .SBTTL COMSDELATTNAST = DELIVER ATTENTION ASTS 
101 : COMSDELATTNAST = DELIVER ATTENION ASTS 
: 3; COMSDELATTNASTP = DELIVER ATTENION ASTS BY PID 
4 ; FUNCTIONAL DESCRIPTION: 
1 6 : THIS ROUTINE IS USED BY THE TERMINAL AND MAILBOX DRIVERS TO DELIVER 
107 : ALL OF THE ASTS AWAITING ATTENTION. THE CONTROL BLOCKS ARE USED AS FORK BLOCKS 
: : TO IPL$_QUEUEAST. 
119 : INPUTS: 
0 118 : R4 = ADDRESS OF LIST HEAD OF AST CONTROL BLOCKS 
113: RS = UCB OF UNIT 
990 114 ; R6 = ACTIVE PID (AT ENTRY POINT COMSDELATTNASTP) 
$8 116 : OUTPUTS: 
2000 118 ; R2,R3,R4,R5 ARE PRESERVED. 
0000 120 COMSDELATTNAST:: ; DELIVER ATTENTION ASTS 
OOF8 8F BB 0000 121 PUSHR #*M<R3,R4,R5,R6,R7> > SAV 
56 D4 0004=«1 g CLRL = R6 : CLEAR SO ALL ASTs WILL BE DELIVERED 
06 = #11 0008 \¢7 BRB ATTN2 3; continue 
0008 125 COMSDELATTNASTP:: ; DELIVER ATTENTION ASTS BY PID 
OOF8 8F BB 9008 : py PUSHR #*M<R3,R4,R5,R6,R7> : SAVE 
57 54 00 Ooo¢ 8 "  MOVL —-R4, R7 ; R7 WILL TRACK LIST 
55 67 09 OOOF 130 10$: MOVL  (R7),R5 : GET NEXT ENTRY 
36 13 0012.~=«131 BEQL 50% : IF EQL THEN NONE 
6 03 0014 «1 3 TSTL + CHECKING PIDS? 
08 1 O16 1 BEQL 30% : NOT IF ZER 
56 24 A5 D1 0018 134 CMPL ACBSL_KAST+12(R5),R6 ; COMPARE PIDS 
05 13 ic 5 BEQL 30% : EQUAL, DELIVER AST 
Oot ; : PIDS NOT EQUAL, SKIP THIS ENTRY AND LEAVE IT IN QUEUE 
57 55 00 OOie 139 MOVL  R5,R7 > NEXT 
eC 11 00 1 140 BRB 10$ : LOOP 
0 148 ; DELIVER AST AND CLOSE UP LIST 
67 65 «00 0 144 30S: MOVL (R5), (R7) : CLOSE LIST 
E6 AF O9F 6 145 PUSHAB B*10$ : SET UP RETURN ADDRESS 
0 ’ 146 FORK : CREATE FORK PROCESS 
F 148 : AST QUEUE FORK PROCESS 
10 AS 18 AS 7D , > io” MOVO = ACBSL_KAST(R5) ,ACBSL_AST(R5) ; REARRANGE ENTRIES 
AS 20a5 9 4 151 MOVB ACBSL_KAST+B (RS) ACBS$B_RMOD (RS) 
CAS 24485 OD o% 2 MOVL ACBSL“KAST+ g(R55 .ACBS BSC_P PID(R }3 
8A 4 f 1 CLRL ACBSL-KAST(RS5) 
52 01 9A 0041 154 MOVZBL #PRIS$~I0COM,R2 ; > SET UP PRIORITY INCREMENT 
00000000'GF 17 4 155 JMP G*SCHSQAST + QUEUE THE AST 
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~SBTTL COMSFLUSHATTNS = FLUSH ATTENTION AST LIST 
; COMSFLUSHATTNS = FLUNS ATTENTION AST LIST 
i oe! ret ie I$ USED BY THE Hh get be AND ed hagy, bei yers rs FLUSH 


comms 
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papa Aa __—__y_y___ Pr 4 
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TTENTION AST LIST. THIS IS DONE AT CANCEL 1/0 TIME AND W — A 
: to" SPECIFIES A o- AST ADDRESS ON A SET ATTENTION AST FUNCTION 
fe Med CONTROL BLOCK OWNER IS NO LONGER IN THE SYSTEM THE AST IS ALSO 


=» 
“ 
nhuuan 


PCB ADDRESS 
UCB ADDRESS OF RELATED UNIT 
Here 


; OUTPUTS: 


RO = SS$_N 
R1,R2,R7~ ARE "DISTROYED. 
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COMSFLUSHATTNS: : : FLUSH ATTENTION AST LIST 
O04 DSBINT UCB$B_DIPL(RS) : DISABLE INTERRUP 
50 67 09 056 10$:  MOVL (R7),RO : GET LIST ENTRY 
1F 3613 «(0059 BEQL 50% : IF EOL THEN DONE 
24 A0 60 A4 01 005 CMPL § PCBSL_PID(R4),ACBSL_KAST#+12(RO); PID MATCH? 
13 12 006 BNEQ 40$ ; IF NEQ THEN N 
22 a0 «2561006 CMPW = R6, ACBSL_KAST+10(RO) | ; CHANNEL MATCH? 
0b 12 066 BNEQ : IF NEG THE 
67 60 00 006 OVL (RO), (R7) : CLOSE UP LIST To REMOVE ENTRY 
068 ENBINT ; RECNABLE INTERR 
38 AG OBG O06 INCW PCBSW_ASTCNT(R4) : RESTORE AST SUOTA 
1¢ «10 0071 BSBB COMSDRVDEALMEM : DEALLOCATE THE BLOCK 
A 11 0073 BRB COMSFLUSHATINS : CONTINU 
57 50 00 007 40$: MOVL  RO,R7 t LOOK TO NEXT ENTRY 
DC «611+=«0078 BRB 10$ : CONTINU 
007A 50$: | ENBINT : REENABLE INTERRUPTS 
50 (01 9A 9070 MOV ZBL #SS$_NORMAL ,RO : SET NORMAL RETURN 
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7" -SBTTL COMSPOST = POST 1.0 COMPLETION INDEPENDENT OF UNIT STATUS 
; COMSPOST = POST 1/0 COMPLETION INDEPENDENT OF UNIT STATUS 

; FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS USED BY THE TERMINAL, MAILBOX AND DMC DRIVER TO COMPLETE 
; 1/0 OPERATIONS INDEPENDENT OF THE STATUS OF THE UNIT. NO ATTEMPT IS MADE 
TO DE-QUEUE ANOTHER PACKET OR CHANGE THE BUSY STATUS OF THE UNIT. 


+ INPUTS: 


conor UB =f UCAT 
Vv04- COMSPOST = P 


+ = 1/0 PACKET ADDRESS 
R5 = UCB ADDRESS 


; IMPLICIT INPUTS: 


CALLER AT DRIVER FORK IPL OR GREATER. 
IRPSL_MEDIA AND IRPSL_MEDIA+4 ARE THE IOSB QUAD WORD. 


SOOCOCOCOCOCOOCOOOoOoOoooO 
MO & a 


SooOoooooooocooo 


2 : RO,R1 ARE DISTROYED. 
8 COMSPOST: : ; COMPLETE 1/0 
70 AS) 6 INCL Ucesi OPCNT(RS) : INCREMENT OPERATION COUNT 
00000000'FF 63 OE 008 INSQUE (R3),@1OCSGL_PSBL : INSERT PACKET ON QUEUE 
8 SOFTINT #IPL$_10POST : REQUEST FORK 
05 008 RSB : RETUR 
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.SBTTL COMSDRVDEALMEM = DEALLOCATE DRIVER MEMORY 
:" COMSDRVDEALMEM = DEALLOCATE DRIVER MEMORY 
! FUNCTIONAL DESCRIPTION: 
! THIS ROUTINE IS USED BY DRIVERS TO DEALLOCATE SYSTEM DYNAMIC MEMORY. 


F888 5 
F i 
F 5 
mE 
F $89: 
: rt 3; IT CAN BE CALLED AT ANY IPL. 
r 4¢ : INPUTS: 
6 F a4 ; RO = ADDRESS OF THE BLOCK TO DEALLOCATE 
0 F rf ITTIIIIIIIIITIT TIT TI ITT TTT ititiiiiiii titi T tii iii) 
F 3 
6 F 48 : THE BUFFER MUST BE AT LEAST 5 RBs LENGTH BYTES LONG 
O8F 249: IF A FORK IS REQUIRED. BETAUS N THE 
+H 29 : 3; BUFFER INTO A FORK Brock’ te ise Or ELATED. SEALLOCATION. 
+H 36 3 s eeecceneccecceccerseconncceeesccecceeeeonoreqceecesese 
F ; 
SoaF 54 ; OUTPUTS: 
OBF 55 
OBF 26: ; RO-R5 ARE PRESERVED. 
O8F 38 Com tom SDRVDEALMEM: : : DEALLOCATE DRIVER MEMORY 
53 DD O08F 25 PUSHL B + SAVE A REGISTER 
091 260 SAVIPL Rs : FETCH CURRENT IP 
08 53 D1 0094 261 CMPL 3, #I1PL$_SYNCH : COMPARE CURRENT IPL TO SYNCH 
0B 14 0097 6¢ BGTR 108 : BRANCH IF IPL LEVEL > SYNCH 
07 BB 0099 26 PUSHR #*M<RO,R1,R2> : SAVE MORE REGISTERS 
00000000'GF 16 009B 264 JSB G*EXESOEANONPA ED + DEALLOCATE M 
OF BA OOA1 265 POPR #*M<RO,R1,R2,R3> ; RESTORE REGISTERS 
05 0A 66 RSB ; RETURN, ALL REGISTERS PRESERVED 
08 AO «(18~«@BI Sond 68 10S: CMPW gFKBSC_LENGTH.FKBSU_SIZE(RO) BIG ENOUGH FOR A FORK BLOCK? 
5 1A 00A8 $9 BGTRU 30$ IF 6TRU THEN NO = ERROR 
7E 54 7D OOAA 0 MOVQ = RG 5 (SP) : SAVE FORK ING REGS 
BO OOAD 271 MOVW #<DYNSC_FRK!- : INSERT STRUCTURE TYPE 
OAE fe <IPLS. se OLUCASTaa>>, - 3 AN D PROPER IP 
0A AO 0608 8F OA 7 FKBSB_TYPE (RO) : FOR THIS TO BE A FORK BLOCK 
55 50 00 3 i non ok RO” pose dasioat pelican 2 TES copy Y ADDRESS 
CB'AF «OOF 3 i PUSHAB BS O6R2 SET UP RETURN ADDRESS 
00000000'GF 16 oB9 , JSB G*EXESFORK : CREATE FORK 
F % > IPL$_QUEUEAST FORK ROUTINE 
50 55 09 f 1° MOVL R5,RO : DEALLOCATE THE BLOCK 
00000 0O'GF 1 ce : JMP G*EXESDEANONPAGED ; 
4 BF 7D 00C¢ 08: MOVO (SP)+ RA : RESTORE R GISTERS 
BED) cB , $: POPL R ; RESTORE R 
CF : : 
cr ; : BUGCHECK ON TOO SMALL A BUFFER 


OM ddd dd dd fee ef CQVOVVOCVVCOCCOC0C0C0U 0 OOWWWWWE Eek See aadadadaadaa 
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: COMSSETATTNAST - SET UP ATTENTION AST 

FUNCTIONAL DESCRIPTION: 


ooo 
wre 


BONA AE WIN 9S OD IAN EIN  S OD NAME WIN SO OD NA NE AI 0 OD NA NEA CO ODNAUNE 


RO = STATUS OF THE 1/0 
R3 = PACKET ADDRESS 
R5 = UCB ADDRESS 
NO OTHER REGISTERS ARE PRESERVED. 
COMPLETION CODES: 
SS$_NORMA 
SS$7EX QUOTA == BUFFERED 1/0 OR AST QUOTA FAILURE 
SSS" INSUFMEM -- DYNAMIC MEMORY FAILURE 
OMSSETATTNAST:: 
MOVZWL IRP$W_CHAN(R3) .R6 
MOVL  P1CAPY,RB 
BEQL si 
: REQUEST TO ENABLE AST 


; SET UP AST BLOCK 


; THI ROUTINE IS A SUBROUTINE USED BY THE TERMI D MAILBOX DRIVERS 
i 10 PROCESS REQUESTS FOR ENABLE OR DISABLE OF ATTENT ON ASTS. 
: Pi IS THE ADDRESS OF THE AST SERVICE FOR ENABLES. P1 = 0 FOR DISABLE. 
FOR DISABLES, THE SPECIFIED LIST IS SEARCHED AND THE ENTRY EXTRACTED AND 
: FOR ENABLES, A CONTROL BLOCK I$ SET UP THAT WILL DOUBLE AS THE AST CONTROL 
3 ; BLOCK WHEN fHE AST IS DELIVERED. THE BLOCK IS FORMATTED AS FOLLOWS: 
0 : ACBSB_RMOD = IPR$_QUEUEAST 
0 : ACBSL“KAST = AST PC 
0 : ACBSLKAST #4 = AST PARAMETER (P2) 
: ACBSL-KAST+8 = ACCESS MODE OF REQUEST 
: ACBSL-KAST+10 = CHANNEL NUMBER 
6 : ACBSL“KAST+12 = PID OF REQUEST 
6 : THE NEW BLOCK IS PLACED AT THE HEAD OF THE CURRENT LIST. 
0 t IN BOTH CASES THE I/O IS COMPLETED. 
0 : INPUTS: 
0 : R3 = 1/0 PACKET ADDRESS 
0 : R& = CURRENT PCB 
: RS = UCB ADDRESS 
: R6 = ASSIGNED CCB 
; R7 = ADDRESS OF THE CONTROL AST LIST HEAD TO CHANGE 
: AP = ADDRESS OF THE G10 ARGLIST 
+ OUTPUTS: 
t 


; SET UP ATTENTION AST 

; GET PACKET CHANNEL NUMBER 

; GET USER AST ADDRESS 

; IF EQL THEN DISABLE FUNCTION 


BBE BEE EE MAINA. ANIA PRIPIPHNPYNPINININIDY 2 2 OO | DOO OOOOOOOCOWOVOONO 
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viet ti CONSE TAT INASS - LY uP ATTENTION AST met 83:28:45 HOYS SRCICOMDRYSUB_MAR; 1 - i 
50 1¢ 3 DF 9 MOVZWL #SS$_EXGUOTA RO ; ASSUME AST QUOTA EXCEEDED 
38 A 7 E TSTW BCBS_ASTCNT(R ) : AST QUOTA ALLO’) CONTINUE? 
56 4 BLEQ Ss 2 : IF LEQ THEN NO 
38 AG a ES DECW  PCBSW_ASTCNT(R4) + ADJUST QUOTA 
51 ef A OE MOVZBL #ACBSC_KAST+16,R1 ; SET SIZE OF NEEDED BLOCK 
pp EC 4 PUSHL R3 t SAVE PACKET ADDRESS 
00000000 ' GF EE 5 JSB G*EXESALLOCBUF : ALLOCATE THE BUFFERED BLOCK 
BED F : POPL RS + RESTORE PACKET ADDRESS 
42 f F7 BLBCOséR 208 : IF LOW SET THEN ALLOCATED 
a2 06 FA 38 MOVB  #IPL$_QUEUEAST,ACBSB_RMOD(R2); INSERT FORK IPL 
18 A D F MOVL  R8,ACBSL_KAST(R2) ; INSERT AST ROUTINE ADDRESS 
10 A204 AC OD 19 60 mOvL P2 CAP) ATBSL_KAST+4(R2) : INSERT PARAMETER FOR AS 
50 O8 AC 02 O FF 1 EXT2V #0,#2,P3(AP : GET REQUEST ACCESS MODE 
00000 00° GF 6 010 6¢ JSB G*EXESMAXACMO + MAXIMIZE ACCESS MODE 
A 9A 011 4 MOVZBL RO,ACBSL_KAST+ * INSERT IN CONTROL BLOCK 
20 A240 gr 88 011 64 BISB  #ACBS$M_QOOTA,ACBSL_KAST+8(R2); INSERT TARGET ACCESS MODE 
22 a2 56~—SOBO sé é5 MCOVW 6, ACBSL_KAST+10(R2) ; Ave CHANNEL 
24 A2 60 A4 00 66 MOVL  PCBSL_PIB(R4),ACBSL_KAST412(R2); INSERT PID ADDRESS OF REQUESTOR 
68 t LOCK OUT INTERRUPTS TO ENTER BLOCK ON UCB 
125 Hs : DSBINT UCase DIPL(RS) : LOCK OUT INTERRUPTS 
62 67 oO O12c 371 MOVL (R77), TR2) : MERGE WITH CURRENT ENTRY 
67 52 DO O1eF re MOVL 2, (R7) + INSERT NEW ENTRY VALUE 
1 é 7 ENBINT + LOWER IP 
50 01 9A 1 74 MOVZBL #SS$_NORMAL ,RO ; SET NORMAL RETURN 
05 138 £3 RSB : RETURN VIA CALLER 
FFI3) 31 0139 a 10$:  BRW COMSFLUSHATTNS ; DISABLE FUNCTION 
00000000'GF 17 013¢ 379 208: UMP G*EXESABORTIO ; ABORT THE 1/0 
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ug sSBTTL_ COMSDELCTRLAST = DELIVER CONTROL ASTS 
COMSDELCTRLAST. - DELIVER CONTROL ASTS 
FOMSDELCTRLASTP = DELIVER CONTROL ASTS AND CHECK PIDS 


FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS USED BY T 
ALL 


HE TERMIN SERVI 
OF THE ASTS AWAITING ATTENTION WHICH MA E ION. 

THE AST BLOCK IS NOT DELETED AND IS REUSED. 
INPUTS: 

R3 = MATCH CHARACTER 

R4 = ADDRESS OF LIST HEAD OF AST CONTROL BLOCKS 

RS = UCB OF UNIT 

R6 = ACTIVE PID (AT ENTRY POINT COMSDELCTRLASTP) 
OUTPUTS: 

R3 = 


(low oyye? CHARACTER TO INCLUDE IN DATA STREAM OR NULL 
TASTSV_ABO = set to signal driver to abort 1/0 in progress 
TAST$SV_INC = set to inciude this character in datastream 


R1,R4 DESTROYED 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge 


a a a a ee a ee a a a a ad od od od tO 
i 
i 


NSNAAAAAAAAOAAOAOOUUIUVIVUU EL BEES E LLLP L ARERR EPL ELL EEE EPP EPP PPP EEE OC 
Pe ee Oe Oe oP oe oe oe oF oF oF oF oF ot ot ot ot oe oe oe ae ee ee eee ee eee eee eee ee ee) 


HIWWIAIAINI AAI IPPIPNPNINININID 2 9 9 PP  POOOOCOOOOOSCOCOOCOOOOO OOOO WOccrcoceapeD 
NAUSEA @ OOD NAUES WIR 0 OD NAME WIN O OD NAME WN SO OOO NA UE WI 0 OONOU ES wr 


SOOOOCOCOSOOSSOSOCOOCOOCOOOOCOOOSOSCOSOCOOOCOCO COCO OCOOCOOOOOOOOOSOOoOoO Om 


COMSDELCTRLAST:: : DELIVER CONTROL ASTS 

006C 8F 8B PUSHR  #*M<R2,R3,R5,R6> + SAVE REGIST 
564 CLRL ORR + CLEAR SO ALL ASTs WILL BE DELIVERED 
06 ~=«11 BRB CTRL2 3; continue 

COMSDELCTRLASTP: : : DELIVER CONTROL ASTS BY PID 

006C 8F BB paniage PUSHR #*M<R2,R3,R5,R6> 
524 1m a ; INIT RETURN CHARACTER 

51 54 00 ia. MOVL R4,R1 : LIST HEAD ADDRESS 

5161 009 "MOVE = (R11), R1 : ADDRESS FIRST BLOCK 
691 BEQL 0$ : NO MORE 

3 8 tt hg SUBL3. #TASTSL_FLINK,R1,R5 ; ADDRESS START OF BLOCK 
F130 AS O04 AE ET BBC 4(SP), TASTSL_MASK (RS), 10$ : SKIP IF CHARACTER NOT IN MASK 
: Check PID 
56 if TSTL R6 3 chock ing pids? 
3 1 BEQL 11$ ; Branch if not 
56 2B A D1 CMPL TASTSL_PID(RS) ,R6 3; compare 
} fae * 1s BNEQ 10$ 3; skip if not equal 
: This one matches, check include and abort 

05. £1 Bc #TASTSV_ABORT,- 

0B 2D A5 TASTSB STRLCRS) 128 ; BRANCH IF NOT ABORT 

52. 04 AE 9A MOVZBL 4(SP),R : FETCH CHARACTER 
52. 4000 8F AB BISW  #TASTS$M_ABO,R2 : SET ABORT 
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OD 11 7A 43 128 BRB 15$ : 
0} E1 O17C 44 BBC #TASTSV INCLUDE. = 
08 20 A 17E 4 TAST$B_CTRL(RS) .15$ : SKIP IF STRIP CHARACTER 
52 4 AE 9A 01 Aae MOVZBL 4(SP) t CHARACTER NOT STRIPPED 
2. & 3 443 = BBSS #TAST$V_INC,R2,15$ + MARK CHARACTER PRESENT 
03 E2 0189 445 BBSS #TAST$V_BUSY,- 
cS 20 A 188 446 TAST$B_CTRL(AS),10$ : SKIP IF IN USE/ MARK IN USE 
24 05 04 AE 9A 44 ~ MOVZBL 4(5P),TASTSL_ASTPRM(RS) t RETURN CHARACTER TO USER 
0B AS 06 90 19 4s MOVB #IPLS_QUEUEAST,ACBS$B_RMOD(RS)  ; INSERT. FORK IPL,TO ALLOW USE AS 
B9 AF OF 0197 451 PUSHAB 8*10$ : SET UP RETURN ADDRESS 
19A 43¢ FORK : CREATE FORK PROCESS 
149 436 : AST QUEUE FORK PROCESS 
O10 436 ASSUME TASTSL_ASTPRM EQ <TASTSL_AST + 4> 
1A0 0s 45 ASSUME acest ASTPRM EQ <ACBSL_AST + 4> 
10 AS 20 A5 7D O1A0 458 228 MOVQ _TASTS$C_AST(RS) ,ACB$L_AST(RS) ; REARRANGE ENTRIES 
30 88 O1A5 459 BISB  #<ACBSR_NODELETE!ACBSM_PKAST>,- 
C AS O1A7 460 TASTS$B_RMOD(RS) ; PK AST, NODELETE 
0B AS 2C AS 90 O1A9 = 461 MOVB = TASTSB-RMOD(R5) ,ACBSB_RMOD(RS) : MODE 
0c AS) «628 AS-O#DO O1Ag 46¢ TASTSL~PID(R5) ,ACBSL_PID(R5) > PID 
18 AS CA'AF «ODE «COO1B3) 46 MOVAL B*ASTACNTNG,ACBSL_KAST(RS) : ADDRESS OF PIGGY-BACK KERNEL ROUTI 
52. 01 9A O1BB 464 MOVZBL #PRI$_IOCOM.R2 + SET UP PRIORITY INCREMENT 
00000000'GF 17 0188 465 a JMP G*SCHSQAST + QUEUE THE AST 
04 AE 52 00 ate rh MOVL  R2,4(SP) ; RETURN ANY CHARACTER 
006¢ BF BA O1CS 468 POPR #*M<R2,R3,R5,R6> : RESTORE REGISTERS 
oA Feel 
1CA 471 : PIGGY-BACK KERNEL MODE ROUTINE TO: 
1CA ve ; 1. MARK TAST AVAILABLE FOR USE 
; : LOCK 
1CA 47 2. DEALLOCATE LOST’ BLOCK(S) AND RETURN THEIR QUOTA 
Sica aps 
grea 47 ASTACNTNG: 
20 AS 08 BA QICA 47 BICB #TASTSM_BUSY, TASTSB_CTRL(R5) ; Mark block available. 
18 2D AS 04 €1 OIC 478 BBC #TASTSV_LOST, = ; Branch if still using this block. 
103 479 TAST$B_CTRL(RS), 150$  ; Otherwise 
50 28 aS 3C 1D 480 MOVZWL TASTSL_PID(R5), RO 3; use PID index to locate PCB for 
50 00000000'FF40 DO 0107 481 MOVL aL *SCHSGL pcavECLRO3, RO’; this process. 
38 A B6 ODF 4 ¢ INCW PCBSW_ASTCNT (RO) ; Then return AST quota for and 
ee | Be 15g 4 MOVL R5,RO : deallocate this block. 
FE1B" OIE 484 BSBW  EXESDEANONPAGED 
05S O168 485 150$: RSB ; That completes piggy-back accounting. 


CC 


COMDRVSUB = COMMUNUCATION DR IVERS SUBROUTINES © =SEP=1984 AX/VMS Macro V04-00 p 13 
vet COMSFLUSHCTRLS = FLUSH CONTROL AST LIST  5=SEP=1984 t 63:2 :4 at YOYS SRCICOMDRVSUB_MAR; 1 ~~ ib 
169 ‘ mt .SBTTL COMSFLUSHCTRLS = FLUSH CONTROL AST LIST 
169 4 : t COMSFLUSHCTRLS = FLUSH CONTROL AST LIST 
169 491 : THIS ROUTINE I$ USED BY THE TERMINAL SERVICES TO FLUSH 
1£ 496 : THE CONTROL AST bist. THIS IS DONE NE A T CANCEL 1/0 TIME AND WHEN A 
169 493 : Q10 SPECIFIES A 0 AST ADDRESS SET AST FUNCTION, 
169 49% : THE SUMMARY MASK POINTED TO BY R2 1S UPDATED’ 
169 496 : INPUTS: 
169 498 ; R2 = ADDRESS OF SUMMARY MASK 
169 499: R4 = PCB ADDRESS 
169 00 : R5 = UCB ADDRESS OF RELATED UNIT 
1€9 13 Re = CHANNEL NUMBER 
1£9 O¢ : R7 = LIST HEAD 
OIE F 
169 04 + OUTPUTS: 
SiE9 06 : RO = SS$_NORMAL 
B1Ee 308 : R1 AND R7 ARE DESTROYED. 
169 509 : 
oes $10 COMSFLUSHCTRLS:: : FLUSH CONTROL AST LIST 
OIE 511 DSBINT UCBSB_DIPL(RS) : DISABLE INTERRUPT 
51 D4 OF 218 CLRL : INIT RETURN MASK 
50 (67 09 1F 13 5$ MOVL (R77), RO $ GET LIST ENTRY 
4 13 OF 14 BEQL 50$ + IF EGL THEN DONE 
50 ic ¢c2 OF? 515 SUBL § #TASTSL_FLINK,RO : COMPUTE START OF BLOCK 
28 AO «60 AG «ODT SCOOTFA = s45 16 CMPL  PCBSL_PTD(R4) . TASTSL -P1D(RO); PID MATCH? 
12 OFF 517 BNEQ  40$ ; IF’ NEQ THEN NO 
2E AO 3256) «BT «CO0201Ss«S518 CMPW =—sR6, TAST$W_CHAN(RO) t CHANNEL MATCH? 
if 0 05 219 BNEQ 4 : IF NEQ THEN NO 
67 1C AO D 07 ; 0 MOVL §TASTSL_FLINK(RO),(R7) : CLOSE UP LIST TO REMOVE ENTRY 
06 20 a0 (03——=O*#€E:? § op 5 ‘ BBC #TASTSV_BUSY, TAST$B_CTRL (RO) , 208; BLOCK CAN BE DELETED NOW? 
2D AO 10 88 0210 BISB —-#TASTSM~LOST, TASTSB_CTRL (RO) NO T FOR LATER DELETION 
a be 16 4 BRB 5$ : THAT'S hu’ ue tN DO RIGHT NOW 
Q000008F'GF 16 0216 t 20$: JSB G*COMSDRVDEALMEM ; DEALLOCATE THE BLOCK 
a 86 IC f INCU BCBSW_ASTCNT (R4) : REST ORE A ST QUOTA 
1 9 : 
51 30 AO C8 1 0 40$:  BISL  TASTSL_MASK(RO),R1 : OR IN ACTIVE CONTROL CHARACTERS 
57 10 AO DE 5 1 MOVAL TASTSL~FLINK(ROS ,R7 : LOOK TO NEXT ENTRY 
(7 «11 3 : BRB 5$ ; CON TINUE 
62 51 v0 8 4 50$:  MOVL  R1,(R2) : UPDATE SUMMARY MASK 
F 5 ENBINT > REENABLE INTERRUPTS 
50 «(01 9A i 6 HOV ZBL #SS$_NORMAL RO : SET NORMAL RETURN 


$$ - 7 


2 
9 
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= -SBTTL COMSSETCTRLAST = SET UP CONTROL AST 
COMSSETCTRLAST = SET CONTROL AST 
; FUNCTIONAL DESCRIPTION: 


This routine is used by the terminal services FDT routines —— the 

processing of requests to enable out-of-band ASTs. The current list is 

scanned for a block with a requestor matching that of the request bein 

; processed. f a match is found, the specified mask and AST routine address 

tn the matching block are replaced. If no match is found, COMSBLDCTRLAST is 

called to gree e anew block. The summary mask pointed to by R2 is updated 
nclusive or of all masks in the control AST List pointed to by R7. 


mre 
wom 


; If 1EDer the AST routine address or the out-of-band enable mask -- 


@<P2(AP)+4> == is zero, all out-of-band AST requests entered by this 
; requestor are flushed from queue pointed to by R7. 
; INPUTS: 
R2 = CURRENT SUMMARY MASK ADDRESS 
R35 = 1/0 PACKET ADDRESS 
R4 = CURRENT PCB 
RS = UCB ADDRESS 
R7 = ADDRESS OF THE CONTROL AST LIST HEAD TO CHANGE 
AP = ADDRESS OF THE QI0 ARGLIST 


P1I(AP) = ADDRESS OF AST ROUTINE TO CALL WHEN OUT-OF-BAND CHARATER IS 
TYPED (0 ==> FLUSH QUEUE) 

P2(AP) = ADDRESS OF SHORT FORM TERMINATOR MASK GIVING WHICH OUT-OF- 
BAND CHARACTERS WILL PRECIPATATE DELIVERY OF AN AST 
(0 MASK VALUE ==> FLUSH QUEUE: This address will be passed 
as the AST parameter when the AST is delivered) 

P3(AP) = ACCESS MODE IN WHICH THE AST IS TO BE DELIVERED 
(This is maximized against the caller's access mode) 


IPL at entry is assumed to be IPLS$_ASTDEL. 


OUTPUTS: 
RO = STATUS OF THE I/0 
(SS$_NORMAL only; all others return via EXESABORTIO) 
Re = ADDRESS OF TAST BLOCK 
R35 = 1/0 PACKET ADDRESS 
R4 = CURRENT PCB ADDRESS 
5 = ADDRESS 


RS = UCB ADD 
NO OTHER REGISTERS ARE PRESERVED. 
IPL at exit is the same as IPL at entry. 


The suspery mask pointed to by R2 is updated to be the inclusive or of 
all masks in the control AST List pointed to by R7. 


The control AST List pointed to by R7 is flushed, extended, or an 
entry in the List is updated. 


COMPLETION CODES: 
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your COMSSETCTRC AST - SET UP CONTROL AST a7 See 1 382 83:28:45 SYS.SRCJCOMDRVSUB.MAR; 1 . (9) | vi 
H 3 SS$_NORMAL 
35 5 The fol Lewine return codes are foperted by a JMP to EXESABORTIO: 
6 ? ; SS$_ACCVIO 3 == speci tied mask not accessable 
601 ; SS$$_ “EXGUOTA we buf fered 1/0 or AST quota failure 
? ¢ ; SSS_INSUFMEM == dyneate memory failure 
604 ° 
° 5 3 conpseycrn AST. CORSBLDETRLAST and CONSFILLCTR AST build and use the 
$ 3; followi as a formation block. COMSSET TCTRLAST builds the block on the stack 
? 3; and points t. COMSBLDCTRLAST aol COMBFILLETRLAST use infomation 
oR8 3; stored to oeila® or oe a TAST control block. 
: 610 SOFFSET 0 POSITIVE, <- 
8 611 ASTROUT, ; User's AST routine address 
2 o1¢ ASTPARM,= ; AST routine parameter 
0 61 USRMSKADR, - : Pointer to user's OOB mask 
5 6614 CUR ; Pointer to current summary mask 
0235 615 <TINFOSize, 0>- : Size of the block 
0235 616 
0000 ASTROUT: 
0004 ASTPARM: 
0008 USRMSKADR: 
000C CURMSKADR: 
319 TINFOSIZE: 
33 81 
0235 61 COMSSETCTRLAST:: ; SET UP CONTROL AST 
56 28 Ad 3C 6 : 621 MOVZWL pore CHAN(R3), R6 ; Get packet channel number. 
58 6C rf 0239 6 ¢ MOVL PICAP), R ; Get user AST address. 
1 i BEQ! COMSFLUSHCTRLS 3; If its zero, flush 00B requests. 
59 04 AC g0 624 MOVL ¢ 3; Get address of user O0B mask. 
50 OC C 4 625 MOVZWL #SS$_ACCVIO, RO ; Assume no access 
024 626 IFNORD # : Probe for read access. 
50 14 3C 0248 627 MOVZWL #SS$_BADPARAM, RO ; Assume invalid mask format 
69 D5 4 6 $ TSTL (R9) : verity short form terminator 
08 ig 5 6 BNEQ 3 mask format. 
04 A9 OD 5 630 TSTL 4(R9) ; Any OOB characters specified? 
9 12 5 631 BNEQ 7$ ; If there are some, proceed. 
FF8F = 31 37 63¢ BRW COMSFLUSHCTRLS : Otherwise, flush 0OB requests. 
00000000 ' GF 17 A 6 ? $$: JMP G*EXESABORTIO ; 1/0 failed, abort request 
oS 
? e 3; We are now holding a valid request of enable an out-of-band character AST 
60 639 ° 
6 640 ASSUME ASTPARM EQ <ASTROUT + 4> 
5SE FOAE 9 6 641 MOVAB <TINFOSIZE(SP), SP 3; Allocate info. block on the stack. 
58 5 p 64 o6§ MOVL ; Save info. block address. 
68 D 4H 64 MOVa RB, ASTROUT(R11) ; Save AST routine and parameter info. 
08 AB OG A DE A 644 MOVAL 4(R9), USRMSKADR(R11) : Save address of user mask. 
OC AB 5 p of 45 MOVL Re. CORMSKADR(R11) ; Save current summary mask address. 
5 C : 968 CLRQ ; Clear accumulation Summary mask and 
7 64 ; a local flags longword. 
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viva fi COMSSETCTRLAST = SET UP CONTROL AST 3-8 P=1984 83:28:45 YOYS SRCICOMDRVSUB MAR: 1 . (9) 
SA D4 8 4 CLRL R10 3; TAST address 
ue 4 DSBINT UCBSB_DIPL(RS) ; Interlock queue access. 
52 4H 0 7 10$: MOVL (R7), R2 ; Get i tet entry. 
1 ¢ BEQL 20$ 3; Branch if no more entries in List. 
38 ES A a : MOVAB <=TASTSL_FLINK(R2), R2~ ; sgapute start of block. 
28 A2 «260 ASOD 4 CMPL PCBSL_PID(R4), TASTSL_PIB(R2) ; Do the PIDs match? 
4 ie C 22? BNEQ 1 ; Branch if PIDs don't match. 
2E A2 6 6 6B 5 § CMPW Re TASTSW_CHAN(R2) ; Is the channel right? 
1B O12 $ e2 BNEQ 15$ ; Branch if not the right channel. 
OD $p ag 0 4 3 639 BBC #TASTSV_BUSY, TASTSB_CTRL(R2),12$; Block can be reused now 
DA 1 8 9 60 BISB #TASTSM-LOST,TASTSB_CTRL(R2) ; No, flag it for later deletion 
67 ICA D0 90 661 MOVL TASTSL FLINK(R2) , (R7) ; Remove the entry from the queue 
59 0 C Al 006 BISL rf R 3; Indicate that a match was found 
1 11 AS 66 Bee 20$ 3; And build a new one, since the old 
A6 664 ; one is busy and will be deleted when 
A6 665 3; the AST is delivered. 
SA 52 B8 . 096 12$: MOVL R2,R10 3; Save TAST address 
006D 0 & 66 BSBW COMSF ILLCTRLAST ; Update matching TAST control block. 
59 O01 CB O ry) 008 BISL #1, R9 ; Indicate that an update was done. 
58 30A C8 § AF radi 15$: ISL TASTSL_MASK(R2), R8 ; Accumulate 008 mask data for queue. 
6ClCO A DE 8 +H 671 MOVAL TASTSL-FLINK(R2), R7 3; Advance to next queue entry. 
C 11 8 44 ore RB 10$ ; Loop until entire queue processed. 
0c BB «658 « «6#D0 60289) =—s«674 208: MOVL R8, @CURMSKADR(R11) ; Make accumulated OOB mask for queue 
02BD 675 ; the current OOB mask for the queue. 
8 BD 978 ENBINT ; Return to caller's IPL. 
50 4 3¢ C9 67 MOVZWL #SS$_NORMAL, RO ; Assume work completed successfully. 
52 A 00 O2C 678 MOVL R10 .Ee 3; Valid only if RY LBS 
02 59 Fs 0206 679 BLBS , 308 3; If no blocks in the queue were 
OE C9 o80 BSBB COMSBLDCTRLAST 3; updated, build a new block. 
5E 10 af 43 CB «681 30S: MOVAB TINFOSIZE(SP), SP :; Restore stack. 
01 5 E CF ors BLBC RO, 508 ; Was COMSBLDCTRLAST successful? 
05 8 Dg oe? 508 RSB : if so, return to caller. 
00000000 ' GF 17 8 + on? JMP G*EXESABORTIO ; If it failed, abort 1/0 request. 


ve UB 
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. ~SBTTL COMSBLOCTRLAST = BUILD CONTROL AST 
COMSBLDCTRLAST = BUILD NEW CONTROL AST PACKET 
FUNCTIONAL DESCRIPTION: 


cr> 
> 
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This routine builds a new terminal AST control block and inserts it after 
; the TAST entry pointed to by R7. The control block will double as an AST 
; sentra’ bhatt sf - a AST is delivered. The block will be reused until the 
ut-of-band et vest is canceled. The summary mask pointed to by 

; CURMSKADRCRITD. is ne aeaniaictad or‘ed with the user out-of-band mask pointed 
to by USRMSKADR(R11) 


INPUTS: 
1/0 PACKET ADDRESS 
PCB 


za 

uw 
nHunn 

Cc 

o 

ow 


oe OOB REQUEST IS BEING MADE 

CONTROL AST LIST ENTRY PRECEDING THE POINT WHERE 
TH E Y Is TO BE ADDED. 

Ri1= THE ADDRESS OF A TAST INFORMATION LIST (SEE COMSSETCTRLAST) 

AP = ADDRESS OF THE Q10 ARGLIST 


P3(AP) = access MODE IN WHICH THE AST IS TO BE DELIVERED 
This is maximized against the caller's access mode) 


ASTROUT(R11) = CHARACTER 19° 1y > jaa TO CALL WHEN OUT-OF -BAND 

ASTPARM(R11) = AST PARAMETER VALUE TO BE _— TO AST ROUTINE WHEN 
OU 1-OF -BAN D_AST IS DELIVER 

CURMSKADR(R11)= ADDRESS OF THE CURRENT QUT SOF -BAND SUMMARY MASK 

USRMSKADR(R11)= ities MASK SPECIFIED BY USER FOR 


IPL at entry is assumed to be IPLS_ASTDEL. 
OUTPUTS: 
= STATUS OF THE 1/0 
R1 & R2 DESTROYED 
ALL OTHER REGISTERS PRESERVED 
IPL at entry is assumed to be IPLS$_ASTDEL. 


A TAST control block is allocated, filled in, and Linked after the 
entry pointed to by R7. 


COMPLETION CODES: 
SS$_NORMAL 


SSS"EXQUOTA == BUFFERED I/0 OR AST QUOTA FAILURE 
SSS_INSUFMEM -- DYNAMIC MEMORY FAILURE 


m 
z 
cw 
z 
_ 


COMSBLDCTRLAST: 


PARI O OD NAN E WN OD NOAUE WIN SO OO NA UE WN 0 OD NOAM EWN OOONAUE WN OOo 
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38 AG ° TSTW SS a aertthaata ; Is there enough AST quota? 
BLEQ 91 ; Branch if insufficient AST quota. 
38 AS OB DECW * eae ceceaaeames ; Deduct from AST quota. 
Hy pp PUSHL R ; Save reg. destroyed by EXESALLOCBUF. 
3 4 A MOVZBL #TASTSC_LENGTH, R1 3; Set size of TAST block. 
00000000'GF 1 JSB G*EXESACLOCBUF 3; Allocate for the TAST control block. 
8ED POPL R 3; Restore saved regyeter. 
21 ; BLBC RO, 93% 3 Brench if allocation failed. 
0 BSBB COMSF ILLCTRLAST 3; Fill in newly allocated block. 


! INSERT NEWLY BUILD TAST CONTROL BLOCK 


COD ELLE LSU NOOW STOO Cc 


SQN OO So 
SN NN NA AAA AAA AAA MITT EEE 


MEW OO ONAN EW OOO NAME Wt -OUOONOU 


Spusissng heh ete eee dete web THK HH MMMMMMoOCOTW Oe 


DSBINT UCBSB_DIPL(RS) ; Interlock access to queue Links. 
¢ A2. 67 00 MOVL (R7), TASTSL PL INK CRG) :; Move List for. pointer to new entry. 
6 1C Ag bf MOVAL TAST$L_FLINKTR ), (R7) |; Link new entry to current List. 
0c BB SOA C BISL TASTSL_MASK(R2), @CURMSKADR(R11) ; Update summary mask. 
ENBINT ; Restore previous IPL. 
~~ Hn Ss MOVZWL #SS$_NORMAL, RO ; Indicate that build succeeded. 
05 tH : RSB ; Return to caller. 
030 : 
F ; ERROR RETURNS: 
Be: 
50 1C 3C Q30F 91$: MOVZWL #SSS$_EXQUOTA, RO ; AST quota exceeded. 
05 83 RSB 
50 0124 8F 3¢ Q3 93$: MOVZWL #SSS$_INSFMEM, RO : Insufficient dynamic memory. 
05 0318 RSB 
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viva ti COMSFILLCTRLAST - FILLIN A CONTROL AST C = SEE =1382 83:28:15 SYS.SRCJCOMDRVSUB.MAR; 1 ” (11) 

a4 ~SBTTL COMSFILLCTRLAST = FILLIN A CONTROL AST CONTROL BLOCK 

18 COMSFILLCTRLAST - FILLIN A CONTROL AST CONTROL BLOCK 

7 ? FUNCTIONAL DESCRIPTION: 

: : This routine fills in the terminal AST control block A pointed to by R2. The 

784 ; block may be either a previously allocated block which is a} ready Linked to 

785 ; a control AST queue, or a newly allocated block which is being filled in for 

f § the first time. 

q 8 INPUTS: 

790 Re = ADDRESS OF Hs CONTROL BLOCK TO BE FILLED IN 

791 R35 = 1/0 PACKET ADDRESS 

O36 R4 = suspen’ PCB 

79 R6 = CHANNEL ON we 0O0B AST REQUEST IS BEING MADE 

794 Ril= THE ADDRESS OF A TAST INFORMATION LIST (SEE COMSSETCTRLAST) 

oe? AP = ADDRESS OF THE Q10 ARGLIST 

79 P3(AP) = ACCESS MODE IN WHICH THE AST IS TO BE DELIVERED 

£38 (This is maximized against the caller's access mode) 


ASTROUT(R11) = atts Bas oo TO CALL WHEN OUT-OF -BAND 
ASTPARM(R11) = AST tae ly 4, xo e PASSED TO AST ROUTINE WHEN 


OUT-OF-BAND AST IS D 
USRMSKADR(R11)= ADDRESS OF OUT-OF “BAND MASK SPECIFIED BY USER FOR 
THIS AST ENABLE 


If this routine is called to operate on a TAST block which is already 
Linked to a control queue, it should be called at device IPL. 
Otherwise, it can be called at IPLS$_ASTDEL. 

OUTPUTS: 


RO & R1 ARE DESTROYED. 
ALL OTHER REGISTERS ARE PRESERVED. 


IPL at exit is the same as IPL at entry. 
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The TAST control block pointed to by R2 is filled in. 
; COMPLETION CODES: 
There is no completion status. This routine is always successful. 
COMSF ILLCTRLAST: 
ASSUME TASTSL_A aren EQ <TASTA, AST + 4> 
ASSUME ASTEARA A+ ASTROUT + 4>~ 
20 A2 «6B SO7D mMOVa ASTR R11) ; Plant AST routine and 
TASTSL LASTER) 3 parameter addresses. 
30 A2 08 BB 00 MOVL GUSRASRADR(R 1), 
TASTSL_MASK(R2) ; Plant OOB mask. 
50 D4 CLRL RO ; Assume no flags 
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4 & s 
2 5 3; Check for ABORT 
05 20 a3 OC €1 4 $ 6BC #10$V_TT_ABORT, - 
3 8 IRPSW-FUNC(R3),5$ 3; Branch if not abort 
50 80 $8 ¥ BISB #TASTSM_ABORT ,RO ; Else set abort flag. 
1 ; rk BRB 10$ ; Ignore INCLUDE 
2 tg ; Check for INCLUDE 
03 20 a3 0B 1 44 5$ Bc #108V_ INCLUDE - 
45 IRPSW-FUNC(R35 108 ; BR if striping 08 chars. 
50 02 88 +8 B1SB #TASTSM_INCLUDE,R ; Else set no-strip flag. 
2D A 50 690 $ 48 10$: MOVB RO, TAST$B_CTRL(R2) ; Set TAST control field. 
50 O08 aC O 00 =CEF 8 A 49 EXTZV #0, #2, P3(AP), RO ; Get requested delivery access mode. 
51 OC 4 50 MOVPSL R1 ; Get access mode of requestor. 
nh 6 U6U©SlU MS 3 034 $3) EXTZV #PSLSV_PRVMOD, #PSLS$S_PRVMOD, R1, R1 ; If requestor's access 
51 50 1 034 26 CMPB ; mode is biager than delivery access 
03 18 034A 85 BGEQ § ; mode, then delivery AST in 
50 51 90 Q34C 54 MOVB R1, RO 3 requestor's access mode. 
sc A 50 90 O34F 55 20$: MOVB RO, TASTSB_RMOD(R2) ; Plant delivery access mode. 
EA 56 BO 0353 528 MOVW R6, TAST$W_CHAN(R2) ; Plant requestor'’s channel. 
28 A2 «260 AS «0 C0357 57 MOVL PCBSL_PID(R4), TASTSL_PIO(R2) ; Plant requestor'’s PID. 
05 035C 858 RSB 3; Return to caller. 
035D $23 
035D 60 - END 
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:17 
Symbol table :49 (CSYS.SRCICOMDRVSUB.MAR; 1 
CBSB_RMOD = PSLS$S_PRVMOD = ° 
CBSL-AST = PSL$V-PRVMOD 2 
ACBSL_ASTPRM = 1 SAVABS... = 1 
CBSL_KAST = 18 SCHSGL_PCBVEC eeeeeeee 
ACBSL_PID = SCHSQAST eeerenee 
CBSM_NODELETE = SS$_ACCVIO = 0c 
ACBSM_PKAST 2 $S$-BADPARAM = 14 
ACBSM_QUOTA = 4 SS$_EXQUOTA = 1¢ 
ASTACRTNG AR 02 SS$_INSFMEM = 124 
STPARM 4 $S$_NORMAL = 8 1 
AS TROUT 0 TASTS$B_CTRL s D 
CR TAST$SB_RMOD 2 ¢ 
ned BADDALRQS2Z eereneee x TASTSC_LENGTH = 
ORSELD DCTRLAST £98 DOR TASTSL_AST = 0 $0 
‘On SDELA ATTN 0 RG TASTSL_ASTPRM 2 00024 
COMSDELATTNASTP 00 RG TASTSL_FLINK = 0000001 
COMSDELCTRL 001 RG TASTSL_MASK = 0000 33 
COMSDELCTRLASTP 000014A RG TASTSL_PID = 0000 § 
COMSORVDEALME 000 oo RG TASTSM_ABO = 000040 5 
COMSF ILLCTRLAST 0000319 R TASTSM_ABORT = 49404 
COMSFLUSHATTNS eas edd RG 0 TASTSM_BUS = 444 8 
COMSFLUSHCTRLS 00 at RG 8 TASTSM_INCLUDE B 44 00 
COMSPOST 4 081 RG TASTSM_LOS = 0000001 
COMSSETATTNAST 0 32 RG TAST$V_ABORT = 0000000 
COMSSETCTRLAST 000 RG TAST$V_BUSY = 00000003 
CTRL aise bbs R TAST$V_INC = 0000000F 
CURMSKADR B88 00C TASTSV_INCLUDE & 46444 
DIR.. = 00000001 TAST$V_LOS = 00000004 
DYNSC_FRK = 00000008 TAST$W- CHAN F ad 
EXES TIO eererken X 0 TINFOSIZE 0000001 
EXESALLOCBUF reeeneer x QO UCBSB_DIPL = 4 4 444 
EXESDEANONPAGED reeeeeee x 8 UCBSL-OPCNT = 0000007 
EXESFORK rkeekeee x USRMSRADR 00000008 
EXESMAXACMODE ereteree x 0 
FKBSB_F IPL = 00000008 
FKB$B_ TYP = 00G0000A 
FKBSC_LENGTH = 000 901 
FKBSW_S1Z = 0000000 
10$V_INCLUDE = ope ne 
10$v_TT = 0000000C 
1OC$GL_PSBL eeeeeere =X 8602 
IPL$_IOPOST = 00000004 
IPLS_ QUEUVEAST = 0 
IPL$~ SYNCH = 8 
IRP$Q_CHAN = 
IRP$W_ FUNC = 
P1 = 
P = 4 
Pp = 8 
PS = 
ie) s 
P6 = 1 
PCBSL_PID = $ 
PCBSW_ASTCNT s 
PRS$_IPL = 1 
PRS SIRR = 1 
PRIS_ 10COM = 01 
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! Psect synopsis ! 
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7 at Macro V04-00 
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PSECT name Allocation PSECT No. Attributes 

. ABS . 68 00 98 ( 0.3 0 (¢( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 38 1 ( 16.) Q1¢ 1.) NOPIC USR CON ABS LCL NOSHR- EXE D WRT NOVEC BYTE 
WIlONONPAGED 000035D ( 861.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR- EXE WRT NOVEC BYTE 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization 31 00: 8:8 .04 8:00: 97 
Command processing 119 Bp: 0:00.45 0:00:05.9' 
Pass 1 463 8: 217.71 0:00:55.87 
Symbol table sort 0 00:00: 3-92 00:00:09.48 
ass 161 B8'8 :03. § 00:00:13.09 
Symbol table output 12 0:00:00.1 00:00:00.55 
Psect synopsis output 1 00:00:00.07 Sb Bt SP 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 789 00:00:24.98 00:01:27.91 


The working set Limit was 1650 pages. 
103255 bytes (202 pages) of virtual memory were used to buffer the intermediate ggde. 
There were 100 pages of symbol table space allocated to hold 1887 non-local and 37 local symbols. 
source Lines were read in Pass 1, producing 15 object records in Pass 2. 
pages of virtual memory were used to define 32 macros. 
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+e - 
: Macro Library statistics : 


Macro Library name Macros defined 
~$SegSDUAGS: PS¥S-08J21 18-8 | 18 
$255$DUA28: CSYSLIBJSTARLET.MLB;2 11 
TOTALS (all Libraries) 29 


2060 GETS were required to define 29 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$: COMDRVSUB/0BJ=0BJ$:COMDRVSUB MSRC$: COMDRVSUB/UPDATE=(ENHS: COMDRVSUB) +EXECMLS/LIB 
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